COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "STAR"
C00003 ENDMK
C⊗;
BEGIN "STAR"
REQUIRE "DDHDR.SAI[GRA,HPM]" SOURCE_FILE;
DEFINE NPTS=13, SKP=3;
REAL ARRAY STARX,STARY[1:NPTS];
INTEGER I;

FOR I←1 STEP 1 UNTIL NPTS DO
   BEGIN
   STARX[I]←COS(SKP*I*3.141593*2/NPTS);
   STARY[I]←SIN(SKP*I*3.141593*2/NPTS);
   END;
DDINIT;
SCREEN(-1.3,-1, 1.3,1);
POLYGO(NPTS,STARX[1],STARY[1]);
DRKEN; TXTPOS(-.3,0,.04,.12); TEXT("I am a "&CVS(NPTS)&" pointed star");
DPYUP(-1);
INCHWL;
END "STAR";